Справочное руководство по TDMS 7.0 API
VB Script
Смотри также Отправить замечание

Исходный текст

'======================================================================
'Узнать количество папок в почтовом ящике текущего пользователя
Dim TestMailRoot, TestUser
Set TestUser = ThisApplication.CurrentUser
Set TestMailRoot = ThisApplication.UserMailRoot(TestUser)
MsgBox "Количество папок в почтовом ящике текущего пользователя:" & TestMailRoot.SubFolders.Count 
'======================================================================